home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 June
/
64er_Magazin_90-06_1990_Markt__Technik_de_Side_A.d64
/
audio 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
275b
|
16 lines
10 for m=54272 to 54296:poke m,0:next
20 poke 54295,249
30 poke 54296,31
32 poke 54293,0
33 poke 54294,091
34 poke 54296,31
40 print"tiefpass"
45 for a=1 to 2000:next a
50 poke 54296,47
60 print"bandpass"
70 poke54296,79
80 print "hochpass"
85 for a=1 to 2000:next a
100 for m=54272 to 54296:poke m,0:next
110 poke 54296,15